﻿
Imports TorneosBackEnd

Public Class insertarEvento

    Private Sub cancelarbtn_Click(sender As System.Object, e As System.EventArgs) Handles cancelarbtn.Click
        Me.Close()
        Me.Visible = False
    End Sub

    Private Sub aceptar_Click(sender As System.Object, e As System.EventArgs) Handles aceptar.Click

        'Ingresar los datos a la base de datos
        Dim x = Me.TextBox1.Text

        Dim y = Me.TextBox2.Text

        Dim z = Me.TextBox4.Text
        Dim u = Me.TextBox3.Text
        Dim w = Me.TextBox7.Text()
        Dim m = Me.TextBox5.Text
        Dim c = Me.TextBox6.Text
        Dim n = New EventoNegocio

        n.insertarEvento(x, y, z, u, w, m, c)

        MsgBox("Evento registrado!!!!")

        'Limpiar cajitas de texto desues de ingresar datoo
        TextBox1.Clear()
        TextBox2.Clear()
        TextBox3.Clear()
        TextBox4.Clear()
        TextBox5.Clear()
        TextBox6.Clear()
        TextBox7.Clear()
    End Sub

    Private Sub DateTimePicker1_ValueChanged(sender As System.Object, e As System.EventArgs)

    End Sub

    Private Sub GroupBox1_Enter(sender As System.Object, e As System.EventArgs) Handles GroupBox1.Enter

    End Sub
End Class





